First Name Custom Function

get_first_name <- function( name )
{
  x <- strsplit( name, "," )
  fn <- sapply( x, function(x){return(x[2])} )
  fn <- trimws( fn )
  fn2 <- strsplit( fn, " " )
  fn2 <- sapply( fn2, function(x){return(x[1])} ) 
  fn2 <- trimws( fn2 )
  return( fn2 )
}

Assigning Gender Function

add_gender <- function( d )
{
  unique.first.names <- unique( d$first.name )
  gen <- gender( unique.first.names )
  gen <- dplyr::select( gen, name, gender )
  d <- merge( d, gen, by.x="first.name", by.y="name", all.x=TRUE )
  d$gender[ is.na(d$gender) ] <- "uncoded"
  d$gender <- factor( d$gender, levels=c("male","female","uncoded") )
  return(d)
}

Custom Titles Function

add_titles <- function(d) {
  title <- rep("", nrow(d))  
  
  # Assistant Professors 
  title[grepl("(?=.*\\b(Asst|Assistant)\\b)(?=.*\\b(Prof|Professor)\\b)", 
              d$Job.Description, ignore.case = TRUE, perl = TRUE)] <- "Assistant Professor"
  
  # Associate Professors 
  title[grepl("(?=.*\\b(Assoc|Associate|Asc Profr)\\b)(?=.*\\b(Prof|Professor)\\b)", 
              d$Job.Description, ignore.case = TRUE, perl = TRUE)] <- "Associate Professor"
  
  # Full Professors 
  title[grepl("Prof|Professor|& Professor", d$Job.Description, ignore.case = TRUE) & 
          !grepl("Asst|Assoc|Assistant|Associate|Asc Profr", d$Job.Description, ignore.case = TRUE)] <- "Full Professor"
  
  # Research Positions
  title[grepl("^Postdoctoral Research Scholar$", d$Job.Description, ignore.case = TRUE)]   <- "Researcher"
  title[grepl("Research Specialist", d$Job.Description, ignore.case = TRUE)]               <- "Researcher"
  title[grepl("Research Analyst", d$Job.Description, ignore.case = TRUE)]                  <- "Researcher"
  title[grepl("Postdoctoral Scholar", d$Job.Description, ignore.case = TRUE)]              <- "Researcher"
  title[grepl("Postdoctoral Fellow", d$Job.Description, ignore.case = TRUE)]               <- "Researcher"
  title[grepl("Research Scientist", d$Job.Description, ignore.case = TRUE)]                <- "Researcher"
  title[grepl("Research Professional", d$Job.Description, ignore.case = TRUE)]             <- "Researcher"
  title[grepl("Research Professor", d$Job.Description, ignore.case = TRUE)]                <- "Researcher"
  
  # Teaching Faculty
  title[grepl("^Instructor$", d$Job.Description, ignore.case = TRUE)]           <- "Teaching Faculty"
  title[grepl("Clinical .+ Professor", d$Job.Description, ignore.case = TRUE)]  <- "Teaching Faculty"
  title[grepl("Lecturer$", d$Job.Description, ignore.case = TRUE)]              <- "Teaching Faculty"
  title[grepl("^Lecturer Sr$", d$Job.Description, ignore.case = TRUE)]          <- "Teaching Faculty"
  title[grepl("^Principal Lecturer$", d$Job.Description, ignore.case = TRUE)]   <- "Teaching Faculty"
  title[grepl("Professor of Practice", d$Job.Description, ignore.case = TRUE)]  <- "Teaching Faculty"
  title[grepl("Adjunct Faculty", d$Job.Description, ignore.case = TRUE)]        <- "Teaching Faculty"
  title[grepl("Teaching Associate", d$Job.Description, ignore.case = TRUE)]     <- "Teaching Faculty"
  title[grepl("Senior Lecturer", d$Job.Description, ignore.case = TRUE)]        <- "Teaching Faculty"
  
  # Administrative roles
  title[grepl("Dean", d$Job.Description, ignore.case = TRUE)]      <- "Administrator"
  title[grepl("Director", d$Job.Description, ignore.case = TRUE)]  <- "Administrator"
  title[grepl("Chair", d$Job.Description, ignore.case = TRUE)]     <- "Administrator"
  
  
  d$title <- factor(title, 
                    levels = c("Full Professor", "Associate Professor",
                               "Assistant Professor", "Teaching Faculty",
                               "Researcher", "Administrator"))
  
  return(d)
}

Unstrung Salary Function

unstring_salary <- function(x)
{
  x <- gsub( "[$,]", "", x )
  x <- as.numeric( x )
  return(x)
}

FTE Function

make_salary_fte <- function(d)
{
  
  if( max(d$FTE) == 100 )
  {  salary <- d$salary / (d$FTE/100) }
  
  if( max(d$FTE) == 1 )
  { salary <- d$salary / d$FTE }
  
  d$salary <- salary
  
  return(d)
}

get_fte <- function( d )
{
  d$salary <- unstring_salary( d$Salary )
  d <- make_salary_fte(d)
  return(d)
}

Dollarize Function

dollarize <- function(x)
{ paste0("$", format( round( x, 0 ), big.mark="," ) ) }

Academic Units Function

academic.units <- 
  c("CISA-Intrdisp Hum & Comm", "CISA-Science & Mathmatics", 
    "College of Health Solutions MS", "College of Health Solutions NT", 
    "College of Health Solutions SH", "College Of Law", "English", "Hugh Downs School Of Comm", 
    "Humanities Arts & Cultural", "Journalism & Mass Comm", "Ldrshp and Integrative Studies", 
    "Math & Natural Sciences Div", "MDT Music", "Physics Department", 
    "Psychology", "Sch Biological & Hlth Sys Engr", "Sch Compt Infor & Dec Sys Engr", 
    "Sch Elect Comptr & Energy Engr", "Sch Engr Matter Trnsprt Energy", 
    "Sch Future of Innov in Society", "Sch Sustain Engr & Built Envrn", 
    "School Of Art", "School of Criminology & Crim J", "School Of Earth & Space Explor", 
    "School of Geog Sci & Urban Pln", "School of Math & Stat Sciences", 
    "School of Molecular Sciences", "School of Politics & Global St", 
    "School Of Public Affairs", "School of Social Transform", "School Of Social Work", 
    "SHPRS History Faculty", "Social & Behavioral Sciences", "Sols Administration & Faculty", 
    "SOS Faculty & Researchers", "The Design School", "The Sanford School", 
    "WPC Accountancy", "WPC Economics", "WPC Information Systems", 
    "WPC Management", "WPC Supply Chain Management")

Study Sample Function

get_study_sample <- function(d) {
  d <- d %>%
    filter(title != "" & !is.na(title)) %>%   
    filter(Department.Description %in% academic.units) %>%  
    arrange(Department.Description, title)   
  
  return(d)
}

Editing Dataframe

d$first.name <- get_first_name(d$Full.Name)
d <- add_gender(d)
d <- get_fte(d)
d <- add_titles(d)
d <- get_study_sample(d)
d$salary <- unstring_salary(d$Salary)

Create Salary Table Function

create_salary_table <- function(d) {
  t.salary <- d %>%
    filter(!is.na(title) & title != "") %>%  
    group_by(title, gender) %>%  
    summarize(
      q25 = quantile(salary, 0.25, na.rm = TRUE),  
      q50 = quantile(salary, 0.50, na.rm = TRUE),  
      q75 = quantile(salary, 0.75, na.rm = TRUE),  
      n = n()  
    ) %>%
    ungroup() %>%
    mutate(p = round(n / sum(n), 2))  
  
  return(t.salary)
}

Add Position

add_position <- function( t, position, y, xmax, scale.f=8 )
{
  
  t.original <- t
  t <- filter( t.original, title==position )
  dot.size <- 2 + scale.f*sum(t$p)
  offset.n <- 1 + sum(t$p)*2
  
  male.median <- NA
  n.male <- NA
  t <- filter( t.original, title==position & gender == "male" )
  if( nrow(t) > 0 )
  { 
    male.median <- t$q50 
    n.male <- t$n
  }
  
  
  female.median <- NA
  n.female <- NA
  t <- filter( t.original, title==position & gender == "female" )
  if( nrow(t) > 0 )
  { 
    female.median <- t$q50 
    n.female <- t$n
  }
  
  
  # dumbell plots 
  segments( x0=female.median, x1=male.median, y0=y,
            col=gray(0.3,0.5), lwd=7 )
  points( male.median, y,
          col=adjustcolor( "darkblue", alpha.f = 0.5), 
          pch=19, cex=dot.size  )
  points( female.median, y,
          col=adjustcolor( "firebrick", alpha.f = 0.5), 
          pch=19, cex=dot.size  )
  
  pos.f <- 2
  pos.m <- 4
  if( ! ( is.na(female.median) | is.na(male.median) ) )
  {
    pos.f <- ifelse( female.median > male.median, 4, 2 )
    pos.m <- ifelse( female.median > male.median, 2, 4 )
  }
  
  # add salaries to right and left 
  text( female.median, y, paste0("$",round(female.median/1000,0),"k"),
        col=adjustcolor( "firebrick", alpha.f = 0.7), 
        cex=1.2, pos=pos.f, offset=offset.n )
  text( male.median, y, paste0("$",round(male.median/1000,0),"k"),
        col=adjustcolor( "darkblue", alpha.f = 0.7), 
        cex=1.2, pos=pos.m, offset=offset.n ) 
  
  # add faculty counts
  n.female <- ifelse( is.na(n.female), 0, n.female )
  n.female <- ifelse( nchar(n.female)==1, 
                      paste0( " ", n.female), n.female )
  n.male <- ifelse( is.na(n.male), 0, n.male )
  n.male <- ifelse( nchar(n.male)==1, 
                    paste0( " ", n.male), n.male )
  text( xmax-0.1*xmax, y+0.14, paste0( "f   = ", n.female),
        col="gray50", cex=1.1, pos=4  )
  text( xmax-0.1*xmax, y-0.14, paste0( "m = ", n.male),
        col="gray50", cex=1.1, pos=4  )
  
  
  axis( side=2, at=y, labels=position, 
        las=2, tick=F, cex.axis=1.5, col.axis="gray50" )
}

Build Graph Function

build_graph <- function( t.salary, unit )
{
  unique.titles <- unique( t.salary$title )
  ymax <- length(unique.titles)
  xmax <- round( max(t.salary$q50), -3 ) + 50000
  color.key.pos <- 40000 + ( xmax - 40000 ) / 2
  color.key.inc <- ( xmax - 40000 ) / 10
  
  t.mf <- filter( t.salary, gender %in% c("male","female") )
  N <- sum( t.mf$n )
  
  par( mar=c(6,15,4.1,0) )
  plot.new()
  plot.window( xlim=c(40000-10000,xmax), ylim=c(0,ymax+1) )
  
  abline( v=seq(40000,xmax-40000,20000), lwd=1.5, lty=2, col=gray(0.5,0.5) )
  axis( side=1, 
        at=seq(40000,xmax-40000,20000), 
        labels=paste0("$",seq(40,(xmax-40000)/1000,20),"k"),
        cex.axis=1.1, col.axis="gray40", tick=FALSE )
  
  y <- ymax
  
  if( "Full Professor" %in% unique.titles )
  {
    add_position( t.salary, position="Full Professor", y, xmax )
    y <- y-1
  }
  if( "Associate Professor" %in% unique.titles )
  {
    add_position( t.salary, position="Associate Professor", y, xmax )
    y <- y-1
  }
  if( "Assistant Professor" %in% unique.titles )
  {
    add_position( t.salary, position="Assistant Professor", y, xmax )
    y <- y-1
  }
  if( "Teaching Faculty" %in% unique.titles )
  {
    add_position( t.salary, position="Teaching Faculty", y, xmax )
    y <- y-1
  }
  if( "Researcher" %in% unique.titles )
  {
    add_position( t.salary, position="Researcher", y, xmax )
    y <- y-1
  }
  
  
  text( color.key.pos + 3*color.key.inc, 0, "MALE", 
        col=adjustcolor( "darkblue", alpha.f = 0.7), cex=1.2 )
  text( color.key.pos + 1.8*color.key.inc, 0, "FEMALE", 
        col="firebrick",  cex=1.2 )
  text( xmax - 0.1*xmax, 0, paste0("N = ",N), col="gray40",  cex=1.2, pos=4 )
  
  
  title( main="Median Salary by Rank and Gender", cex.main=1.5, col.main="gray30" )
  title( xlab=unit, col.lab="gray50", cex.lab=1.5, line=5 )
  title( xlab="dot size represents proportion of faculty at that rank",
         col.lab="gray50", cex.lab=0.9 )
  
  return(NULL)
}

Psychololgy Filter

d %>%
  filter(Department.Description == "Psychology") %>%
  create_salary_table() %>%
  build_graph(unit = "Psychology")
## `summarise()` has grouped output by 'title'. You can override using the
## `.groups` argument.

## NULL

Top Five Salaries Filter

top_five_salaries <- function(d) {
  
  top5 <- d %>%
    arrange(desc(salary)) %>%
    select(Full.Name, gender, title, salary) %>%
    head(5)  
  
  
  top5$salary <- dollarize(top5$salary)
  
  return(top5)
}

#Loop for all Departments

for (i in academic.units) {
  
  d2 <- filter(d, Department.Description == i)  # Isolate data for department
  
  if (nrow(d2) == 0) { next }  # Skip departments that do not exist
  
  # Generate tables and graph
  t.salary <- create_salary_table(d2)
  top_salaries <- top_five_salaries(d2)
  build_graph(t.salary, unit = i)
  
  # Display department name
  cat(paste0("<h2>", i, "</h2>"))  
  
  # Print tables using knitr::kable()
  cat("<h3>Salary Summary by Rank & Gender</h3>")
  cat(t.salary %>% knitr::kable(format = "html"))
  
  cat("<h3>Top Five Salaries</h3>")
  cat(top_salaries %>% knitr::kable(format = "html"))
  
  # Add spacing
  cat("<br><hr><br>")
}
## `summarise()` has grouped output by 'title'. You can override using the
## `.groups` argument.

CISA-Intrdisp Hum & Comm

Salary Summary by Rank & Gender

title gender q25 q50 q75 n p
Full Professor male 88512.5 112230.0 129747.50 4 0.08
Full Professor female 90775.0 106350.0 201675.00 3 0.06
Associate Professor male 94612.0 94612.0 94612.00 1 0.02
Associate Professor female 88762.5 89225.0 89687.50 2 0.04
Assistant Professor male 73512.5 74025.0 74512.50 3 0.06
Assistant Professor female 69387.5 72100.0 73287.50 4 0.08
Assistant Professor uncoded 65000.0 65000.0 65000.00 1 0.02
Teaching Faculty male 24389.0 46400.0 48897.00 9 0.19
Teaching Faculty female 46512.5 48589.5 51706.25 20 0.42
Teaching Faculty uncoded 24490.0 24490.0 24490.00 1 0.02

Top Five Salaries

Full.Name gender title salary
Rhodes, Jewell female Full Professor $297,000
Simpson, Brooks male Full Professor $145,610
Mara, Andrew male Full Professor $124,460
Brumberger, Eva female Full Professor $106,350
Moulton, Ian male Full Professor $100,000



## `summarise()` has grouped output by 'title'. You can override using the
## `.groups` argument.

CISA-Science & Mathmatics

Salary Summary by Rank & Gender

title gender q25 q50 q75 n p
Full Professor male 36950.00 40145.0 71798.00 11 0.22
Full Professor female 86247.50 108309.0 115903.50 4 0.08
Full Professor uncoded 35000.00 35000.0 35000.00 1 0.02
Associate Professor male 89752.00 95208.0 95847.00 3 0.06
Associate Professor female 93698.00 94882.0 96066.00 2 0.04
Associate Professor uncoded 90333.00 90333.0 90333.00 1 0.02
Assistant Professor male 82780.00 83628.0 84814.00 3 0.06
Assistant Professor female 81356.75 82713.5 84070.25 2 0.04
Assistant Professor uncoded 84536.00 85024.0 85512.00 2 0.04
Teaching Faculty male 48925.00 50000.0 58082.00 9 0.18
Teaching Faculty female 48686.00 48925.0 56949.00 7 0.14
Teaching Faculty uncoded 48106.50 48350.0 49275.00 3 0.06
Researcher female 58000.00 58000.0 58000.00 1 0.02

Top Five Salaries

Full.Name gender title salary
Green, Douglas male Full Professor $168,217
Sagers, Cynthia female Full Professor $123,750
Zandieh, Michelle female Full Professor $113,288
Shovkovy, Igor male Full Professor $107,675
Kang, Yun female Full Professor $103,330



## `summarise()` has grouped output by 'title'. You can override using the
## `.groups` argument.

College of Health Solutions MS

Salary Summary by Rank & Gender

title gender q25 q50 q75 n p
Full Professor male 162943.0 162943 162943.0 1 0.03
Full Professor female 77908.0 77908 77908.0 1 0.03
Associate Professor male 97398.0 115000 117640.0 3 0.09
Associate Professor female 92248.5 93299 96112.5 4 0.12
Assistant Professor male 59437.5 69625 79812.5 2 0.06
Assistant Professor female 88000.0 88000 88000.0 1 0.03
Teaching Faculty male 53062.5 59000 63550.0 7 0.21
Teaching Faculty female 54500.0 55215 57482.5 11 0.32
Researcher female 48789.0 50000 51352.0 3 0.09
Administrator male 275000.0 275000 275000.0 1 0.03

Top Five Salaries

Full.Name gender title salary
Buman, Matthew male Administrator $275,000
Gaesser, Glenn male Full Professor $162,943
Adams, Marc male Associate Professor $120,280
Siegler, Jason male Associate Professor $115,000
Huberty, Jennifer female Associate Professor $103,650



## `summarise()` has grouped output by 'title'. You can override using the
## `.groups` argument.

College of Health Solutions NT

Salary Summary by Rank & Gender

title gender q25 q50 q75 n p
Full Professor male 160000 160000 160000 1 0.03
Full Professor female 81775 109273 140000 5 0.14
Associate Professor female 105589 106665 113460 5 0.14
Assistant Professor female 89000 89000 89000 1 0.03
Assistant Professor uncoded 94700 94700 94700 1 0.03
Teaching Faculty female 53625 56600 63725 17 0.49
Researcher male 48113 48742 49371 2 0.06
Researcher female 63650 66100 68550 2 0.06
Administrator male 183500 183500 183500 1 0.03

Top Five Salaries

Full.Name gender title salary
Kavouras, Stavros male Administrator $183,500
Ohri-Vachaspati, Punam female Full Professor $165,543
Wang, Shu male Full Professor $160,000
Banks, Dorothy female Full Professor $140,000
Bruening, Meredith female Associate Professor $120,280



## `summarise()` has grouped output by 'title'. You can override using the
## `.groups` argument.

College of Health Solutions SH

Salary Summary by Rank & Gender

title gender q25 q50 q75 n p
Full Professor female 77103.0 94322.5 138023.75 6 0.17
Associate Professor male 101397.0 101397.0 101397.00 1 0.03
Associate Professor female 100354.5 101709.0 101854.50 3 0.09
Associate Professor uncoded 118400.0 118400.0 118400.00 1 0.03
Assistant Professor male 98000.0 98000.0 98000.00 1 0.03
Assistant Professor female 98050.0 98200.0 98350.00 2 0.06
Teaching Faculty female 77500.0 80000.0 84780.00 13 0.37
Teaching Faculty uncoded 106308.0 106308.0 106308.00 1 0.03
Researcher male 29120.0 37440.0 66192.00 3 0.09
Researcher female 26239.0 27641.5 37438.25 4 0.11

Top Five Salaries

Full.Name gender title salary
Scherer, Nancy female Full Professor $156,634
Gray, Shelley female Full Professor $147,400
Berisha, Visar uncoded Associate Professor $118,400
Dixon, Maria female Full Professor $109,895
Schatzki, MariaRita uncoded Teaching Faculty $106,308



## `summarise()` has grouped output by 'title'. You can override using the
## `.groups` argument.

College Of Law

Salary Summary by Rank & Gender

title gender q25 q50 q75 n p
Full Professor male 150902.0 168774.5 170696.2 18 0.21
Full Professor female 114801.5 124775.0 160066.2 18 0.21
Full Professor uncoded 127155.0 127155.0 127155.0 1 0.01
Associate Professor male 135750.0 138000.0 151869.0 6 0.07
Associate Professor female 149830.0 156460.0 156476.0 3 0.03
Associate Professor uncoded 93876.0 93876.0 93876.0 1 0.01
Assistant Professor male 60000.0 60000.0 60000.0 1 0.01
Teaching Faculty male 60000.0 68000.0 192600.0 9 0.10
Teaching Faculty female 67250.0 68000.0 87500.0 6 0.07
Teaching Faculty uncoded 75000.0 75000.0 75000.0 1 0.01
Researcher male 45000.0 45000.0 45000.0 1 0.01
Administrator male 120000.0 157600.0 181100.0 9 0.10
Administrator female 73700.0 97615.0 122250.0 12 0.14

Top Five Salaries

Full.Name gender title salary
Sylvester, Douglas male Administrator $450,000
Bodansky, Daniel male Full Professor $274,000
Banks, Angela female Full Professor $255,250
Roberts, Lawrence male Teaching Faculty $250,000
Selmi, Michael male Full Professor $225,000



## `summarise()` has grouped output by 'title'. You can override using the
## `.groups` argument.

English

Salary Summary by Rank & Gender

title gender q25 q50 q75 n p
Full Professor male 104626.00 116259.0 139770.00 21 0.14
Full Professor female 108545.00 118742.5 130000.75 14 0.09
Associate Professor male 92994.00 93820.0 95141.50 11 0.07
Associate Professor female 88408.00 95862.0 97316.00 9 0.06
Assistant Professor male 78900.00 79500.0 80000.00 5 0.03
Assistant Professor female 80046.25 81246.5 82131.25 8 0.05
Assistant Professor uncoded 102000.00 102000.0 102000.00 1 0.01
Teaching Faculty male 49000.00 52100.0 52600.00 32 0.21
Teaching Faculty female 49000.00 52600.0 52600.00 46 0.30
Teaching Faculty uncoded 49000.00 51600.0 52600.00 5 0.03
Administrator female 65750.00 75250.0 153325.00 3 0.02

Top Five Salaries

Full.Name gender title salary
Lester, Neal male Full Professor $270,208
Bate, Andrew male Full Professor $250,000
Ratcliffe, Krista female Administrator $231,400
Diaz, Natalie female Associate Professor $210,200
Justice, George male Full Professor $186,000



## `summarise()` has grouped output by 'title'. You can override using the
## `.groups` argument.

Hugh Downs School Of Comm

Salary Summary by Rank & Gender

title gender q25 q50 q75 n p
Full Professor male 112290.00 116200.0 119450.00 5 0.09
Full Professor female 104780.00 112610.0 132485.00 7 0.12
Associate Professor male 95050.00 97700.0 98185.00 3 0.05
Associate Professor female 100600.00 100600.0 100600.00 1 0.02
Associate Professor uncoded 89907.25 89977.5 90047.75 2 0.03
Assistant Professor male 74500.00 74500.0 74500.00 1 0.02
Assistant Professor female 75350.00 76700.0 78350.00 3 0.05
Assistant Professor uncoded 77300.00 77300.0 77300.00 1 0.02
Teaching Faculty male 45000.00 47050.0 47190.00 13 0.22
Teaching Faculty female 37730.00 45600.0 47190.00 20 0.34
Teaching Faculty uncoded 46200.00 46200.0 46200.00 1 0.02
Administrator female 84428.00 84428.0 84428.00 1 0.02

Top Five Salaries

Full.Name gender title salary
Lederman, Linda female Full Professor $220,000
Tracy, Sarah female Full Professor $135,670
Corman, Steven male Full Professor $130,500
Alberts, Janet female Full Professor $129,300
Roberto, Anthony male Full Professor $119,450



## `summarise()` has grouped output by 'title'. You can override using the
## `.groups` argument.

Humanities Arts & Cultural

Salary Summary by Rank & Gender

title gender q25 q50 q75 n p
Full Professor male 69150.00 98798.0 105275.00 5 0.09
Full Professor female 94191.50 99150.0 100119.00 7 0.13
Associate Professor male 88015.75 88335.0 91287.50 8 0.15
Associate Professor female 85325.25 86620.0 88704.50 10 0.19
Assistant Professor male 75830.00 75830.0 75830.00 1 0.02
Assistant Professor female 75750.00 75750.0 75750.00 1 0.02
Teaching Faculty male 48300.00 48470.0 58200.00 5 0.09
Teaching Faculty female 46150.00 47750.0 48685.00 15 0.28
Teaching Faculty uncoded 48337.75 50545.5 52753.25 2 0.04

Top Five Salaries

Full.Name gender title salary
Mendoza, Louis male Full Professor $180,960
Pagan, Eduardo male Associate Professor $114,900
Hanlon, Christopher male Full Professor $105,275
Guzzetti, Barbara female Full Professor $101,607
Kim, Marianne female Full Professor $100,276



## `summarise()` has grouped output by 'title'. You can override using the
## `.groups` argument.

Journalism & Mass Comm

Salary Summary by Rank & Gender

title gender q25 q50 q75 n p
Full Professor male 64617.50 66525.0 73720.50 4 0.07
Full Professor female 94794.50 134589.0 146084.00 3 0.05
Associate Professor male 70154.50 70963.0 75479.00 3 0.05
Associate Professor female 74788.75 80611.0 88440.25 6 0.10
Associate Professor uncoded 89635.00 89635.0 89635.00 1 0.02
Assistant Professor male 69215.75 70121.5 71027.25 2 0.03
Assistant Professor female 67591.00 67591.0 67591.00 1 0.02
Teaching Faculty male 92362.50 105816.0 139440.50 12 0.20
Teaching Faculty female 104105.00 115591.0 143440.00 15 0.25
Administrator male 104531.00 105443.0 106355.00 2 0.03
Administrator female 76292.50 125000.0 164275.25 12 0.20

Top Five Salaries

Full.Name gender title salary
Gilger, Kristin female Administrator $225,741
Misner, John male Teaching Faculty $196,223
Beelman, Maud female Teaching Faculty $185,000
Blatt, Rebecca female Administrator $185,000
Mancilla Rannow, Sandra female Administrator $177,101



## `summarise()` has grouped output by 'title'. You can override using the
## `.groups` argument.

Ldrshp and Integrative Studies

Salary Summary by Rank & Gender

title gender q25 q50 q75 n p
Associate Professor male 43985.00 43985 43985.00 1 0.03
Associate Professor female 89000.00 89000 89000.00 1 0.03
Assistant Professor male 70653.00 70653 70653.00 1 0.03
Assistant Professor female 70744.50 70749 72089.00 3 0.08
Teaching Faculty male 48523.50 49623 53369.75 16 0.42
Teaching Faculty female 48839.25 50796 54494.50 14 0.37
Teaching Faculty uncoded 47079.50 47159 47238.50 2 0.05

Top Five Salaries

Full.Name gender title salary
Akpan, Patience female Associate Professor $89,000
Bates, Denise female Assistant Professor $73,429
Giron, Angela female Teaching Faculty $71,722
Castillo, Elizabeth female Assistant Professor $70,749
Trinh, Mai female Assistant Professor $70,740



## `summarise()` has grouped output by 'title'. You can override using the
## `.groups` argument.

Math & Natural Sciences Div

Salary Summary by Rank & Gender

title gender q25 q50 q75 n p
Full Professor male 94531.50 105186.0 110058.75 6 0.09
Full Professor female 114337.00 121440.0 124717.50 3 0.05
Full Professor uncoded 100774.50 106398.0 112021.50 2 0.03
Associate Professor male 89783.25 91158.5 102832.00 6 0.09
Associate Professor female 95772.75 97358.0 98546.25 4 0.06
Associate Professor uncoded 100166.00 100166.0 100166.00 1 0.02
Assistant Professor male 86750.00 87000.0 88077.00 4 0.06
Assistant Professor female 88000.00 89000.0 91199.25 6 0.09
Assistant Professor uncoded 89062.50 91125.0 93187.50 2 0.03
Teaching Faculty male 45000.00 47275.0 55250.00 12 0.18
Teaching Faculty female 45000.00 47450.0 53322.25 16 0.25
Teaching Faculty uncoded 57684.00 57684.0 57684.00 1 0.02
Researcher male 62600.00 62600.0 62600.00 1 0.02
Researcher uncoded 60000.00 60000.0 60000.00 1 0.02

Top Five Salaries

Full.Name gender title salary
Morris, Vernon male Full Professor $138,750
Dietrich, Suzanne female Full Professor $127,995
Camacho, Erika female Full Professor $121,440
Kanthaswamy, Sreetharan uncoded Full Professor $117,645
Sullivan, Brian male Full Professor $111,420



## `summarise()` has grouped output by 'title'. You can override using the
## `.groups` argument.

MDT Music

Salary Summary by Rank & Gender

title gender q25 q50 q75 n p
Full Professor male 86820.00 92271.0 97899.00 15 0.20
Full Professor female 88259.25 93371.0 101572.00 8 0.11
Full Professor uncoded 91886.00 91886.0 91886.00 1 0.01
Associate Professor male 84365.75 91149.5 98546.00 8 0.11
Associate Professor female 73313.00 76250.0 77678.75 6 0.08
Assistant Professor male 63631.75 67536.0 73125.00 12 0.16
Assistant Professor female 63344.50 65587.0 79426.50 7 0.09
Teaching Faculty male 33476.25 46718.0 71092.25 10 0.14
Teaching Faculty female 44742.25 57362.5 69239.00 4 0.05
Administrator male 46021.25 49123.5 52225.75 2 0.03
Administrator female 77086.00 77086.0 77086.00 1 0.01

Top Five Salaries

Full.Name gender title salary
Landes, Heather female Full Professor $208,000
Hudson, James male Full Professor $139,664
Marshall, Kimberly female Full Professor $121,288
Roumain, Daniel male Teaching Faculty $121,185
Spring, Robert male Full Professor $115,305



## `summarise()` has grouped output by 'title'. You can override using the
## `.groups` argument.

Physics Department

Salary Summary by Rank & Gender

title gender q25 q50 q75 n p
Full Professor male 117162.50 136500.0 180790.0 19 0.25
Full Professor female 71879.75 93926.0 112269.2 4 0.05
Full Professor uncoded 104376.50 118932.0 149878.5 3 0.04
Associate Professor male 108412.75 111662.5 114505.0 8 0.11
Associate Professor female 94150.00 98000.0 101850.0 2 0.03
Assistant Professor male 92000.00 92500.0 92800.0 5 0.07
Assistant Professor female 93500.00 93500.0 93650.0 3 0.04
Teaching Faculty male 28000.00 28000.0 28000.0 1 0.01
Teaching Faculty female 58200.00 58200.0 58200.0 1 0.01
Researcher male 49607.00 51670.0 66650.0 14 0.19
Researcher female 47957.00 50450.0 51563.0 6 0.08
Researcher uncoded 47476.00 49700.0 51498.5 8 0.11
Administrator male 187000.00 187000.0 187000.0 1 0.01

Top Five Salaries

Full.Name gender title salary
Wilczek, Frank male Full Professor $236,300
Ritchie, Barry male Full Professor $233,201
Nemanich, Robert male Full Professor $210,580
Bennett, Peter male Administrator $187,000
Smith, David male Full Professor $184,222



## `summarise()` has grouped output by 'title'. You can override using the
## `.groups` argument.

Psychology

Salary Summary by Rank & Gender

title gender q25 q50 q75 n p
Full Professor male 121919.75 133778.5 164628.75 14 0.17
Full Professor female 122167.00 151297.5 184948.25 8 0.10
Full Professor uncoded 116113.50 118250.0 120386.50 2 0.03
Associate Professor male 98000.00 106250.0 112619.00 9 0.11
Associate Professor female 108367.00 113215.0 121520.00 5 0.06
Associate Professor uncoded 111780.00 111780.0 111780.00 1 0.01
Assistant Professor female 92000.00 92750.0 93875.00 6 0.07
Assistant Professor uncoded 92000.00 92000.0 92000.00 1 0.01
Teaching Faculty male 80702.50 85175.0 88887.50 4 0.05
Teaching Faculty female 39130.75 52000.0 61321.50 4 0.05
Teaching Faculty uncoded 35971.25 43647.5 51323.75 2 0.03
Researcher male 56352.00 60000.0 78998.50 3 0.04
Researcher female 50004.00 50760.0 62000.00 17 0.21
Researcher uncoded 90534.00 108289.0 126044.00 2 0.03
Administrator male 242093.00 242093.0 242093.00 1 0.01
Administrator female 55125.00 55125.0 55125.00 1 0.01

Top Five Salaries

Full.Name gender title salary
Neuberg, Steven male Administrator $242,093
McNamara, Danielle female Full Professor $227,000
Chassin, Laurie female Full Professor $226,418
Mackinnon, David male Full Professor $177,750
Kenrick, Douglas male Full Professor $176,765



## `summarise()` has grouped output by 'title'. You can override using the
## `.groups` argument.

Sch Biological & Hlth Sys Engr

Salary Summary by Rank & Gender

title gender q25 q50 q75 n p
Full Professor male 154528.2 174056.5 193584.8 2 0.05
Associate Professor male 107706.0 117972.0 121982.0 11 0.26
Associate Professor female 124058.0 124428.0 125130.5 3 0.07
Associate Professor uncoded 111557.0 111557.0 111557.0 1 0.02
Assistant Professor male 97250.0 98000.0 103692.2 4 0.09
Assistant Professor female 100365.0 102125.5 103617.0 4 0.09
Assistant Professor uncoded 97000.0 98000.0 98000.0 3 0.07
Teaching Faculty male 72878.5 74357.0 75835.5 2 0.05
Teaching Faculty female 73185.0 73185.0 73185.0 1 0.02
Researcher male 49885.0 50000.0 52500.0 5 0.12
Researcher female 54500.0 55000.0 68700.0 3 0.07
Researcher uncoded 50003.0 50502.0 51770.0 4 0.09

Top Five Salaries

Full.Name gender title salary
Santello, Marco male Full Professor $213,113
Kleim, Jeffrey male Associate Professor $159,301
Tyler, William male Associate Professor $148,600
Lockhart, Thurmon male Full Professor $135,000
Stabenfeldt, Sarah female Associate Professor $125,833



## `summarise()` has grouped output by 'title'. You can override using the
## `.groups` argument.

Sch Compt Infor & Dec Sys Engr

Salary Summary by Rank & Gender

title gender q25 q50 q75 n p
Full Professor male 149035.00 178002.0 200805.0 11 0.12
Full Professor female 144750.00 147500.0 150250.0 2 0.02
Full Professor uncoded 156917.50 177231.0 200075.0 11 0.12
Associate Professor male 108716.50 126500.0 130815.0 8 0.09
Associate Professor female 104035.00 111735.0 114165.0 3 0.03
Associate Professor uncoded 106760.00 115127.0 121603.2 6 0.07
Assistant Professor male 101450.00 104400.0 109750.0 11 0.12
Assistant Professor female 102750.00 105500.0 107750.0 3 0.03
Assistant Professor uncoded 106875.00 112500.0 113625.0 6 0.07
Teaching Faculty male 79552.00 85000.0 89446.0 9 0.10
Teaching Faculty female 54375.00 82500.0 90699.0 7 0.08
Teaching Faculty uncoded 94966.00 98505.5 99805.0 4 0.04
Researcher male 80106.75 97587.0 121668.8 6 0.07
Researcher female 70885.50 71771.0 72656.5 2 0.02
Administrator male 111930.00 111930.0 111930.0 1 0.01

Top Five Salaries

Full.Name gender title salary
Panchanathan, Sethuraman uncoded Full Professor $365,000
VanLehn, Kurt male Full Professor $240,565
Kambhampati, Subbarao uncoded Full Professor $224,719
Liu, Huan male Full Professor $211,536
Mirchandani, Pitu uncoded Full Professor $206,710



## `summarise()` has grouped output by 'title'. You can override using the
## `.groups` argument.

Sch Elect Comptr & Energy Engr

Salary Summary by Rank & Gender

title gender q25 q50 q75 n p
Full Professor male 128984.8 160931.0 173387.8 18 0.17
Full Professor female 154620.2 160298.5 177500.0 8 0.08
Full Professor uncoded 143667.2 171328.0 201999.8 10 0.10
Associate Professor male 116660.0 119340.0 126580.0 9 0.09
Associate Professor female 116377.5 118065.0 120885.0 4 0.04
Associate Professor uncoded 107899.5 107959.0 112569.5 3 0.03
Assistant Professor male 98000.0 103000.0 105000.0 11 0.11
Assistant Professor female 108500.0 108500.0 108500.0 1 0.01
Assistant Professor uncoded 99375.0 102750.0 105375.0 6 0.06
Teaching Faculty male 75500.0 77000.0 78750.0 3 0.03
Teaching Faculty female 80000.0 80000.0 80000.0 1 0.01
Researcher male 50750.0 65000.0 70000.0 20 0.19
Researcher uncoded 53500.0 55000.0 62960.0 7 0.07
Administrator female 70943.5 80629.0 90314.5 2 0.02

Top Five Salaries

Full.Name gender title salary
Vittal, Vijay male Full Professor $298,000
Lai, Ying-Cheng uncoded Full Professor $270,200
Kiaei, Sayfe uncoded Full Professor $264,880
Meldrum, Deirdre female Full Professor $235,250
Balanis, Constantine male Full Professor $221,879



## `summarise()` has grouped output by 'title'. You can override using the
## `.groups` argument.

Sch Engr Matter Trnsprt Energy

Salary Summary by Rank & Gender

title gender q25 q50 q75 n p
Full Professor male 143412.2 151324.0 160002.8 18 0.16
Full Professor female 193000.0 201000.0 246578.5 3 0.03
Full Professor uncoded 134802.0 147042.5 156154.5 4 0.04
Associate Professor male 111040.0 116990.0 124087.5 11 0.10
Associate Professor female 112709.0 116429.0 119550.0 5 0.04
Associate Professor uncoded 104657.8 116033.0 121064.2 8 0.07
Assistant Professor male 97500.0 99500.0 100500.0 9 0.08
Assistant Professor female 102190.0 103380.0 104190.0 3 0.03
Assistant Professor uncoded 96625.0 98000.0 101250.0 10 0.09
Teaching Faculty male 22000.0 80000.0 84000.0 9 0.08
Teaching Faculty uncoded 74750.0 76000.0 77250.0 2 0.02
Researcher male 45000.0 48925.0 52500.0 17 0.15
Researcher female 50171.5 51443.0 55721.5 3 0.03
Researcher uncoded 35607.0 45000.0 48107.0 12 0.11

Top Five Salaries

Full.Name gender title salary
Chattopadhyay, Aditi female Full Professor $292,157
Dahm, Werner male Full Professor $248,748
Lin, Jerry male Full Professor $218,200
Dai, Lenore female Full Professor $201,000
Jannesari Ladani, Leila female Full Professor $185,000



## `summarise()` has grouped output by 'title'. You can override using the
## `.groups` argument.

Sch Future of Innov in Society

Salary Summary by Rank & Gender

title gender q25 q50 q75 n p
Full Professor male 154946.00 164443.0 196589.25 6 0.12
Full Professor female 123845.00 179725.0 189810.50 3 0.06
Associate Professor male 95728.00 102467.0 108301.00 3 0.06
Associate Professor female 86142.50 96800.0 100919.50 3 0.06
Associate Professor uncoded 113874.00 113874.0 113874.00 1 0.02
Assistant Professor male 94015.25 94263.5 94511.75 2 0.04
Assistant Professor female 75655.25 86355.0 92880.00 8 0.15
Assistant Professor uncoded 92700.00 92700.0 92700.00 1 0.02
Teaching Faculty male 52148.00 58877.5 82310.50 4 0.08
Teaching Faculty female 71707.50 103138.0 158386.50 7 0.13
Researcher male 46150.50 50000.0 94889.00 7 0.13
Researcher female 49325.00 58242.0 70997.75 4 0.08
Administrator male 72043.00 72043.0 72043.00 1 0.02
Administrator female 87425.00 119950.0 152475.00 2 0.04

Top Five Salaries

Full.Name gender title salary
Guston, David male Full Professor $240,400
Cook-Deegan, Robert male Full Professor $204,480
Barab, Sasha female Full Professor $199,896
Vogel, Kathleen female Administrator $185,000
Michael, Katina female Full Professor $179,725



## `summarise()` has grouped output by 'title'. You can override using the
## `.groups` argument.

Sch Sustain Engr & Built Envrn

Salary Summary by Rank & Gender

title gender q25 q50 q75 n p
Full Professor male 138850.00 195000.0 243400.0 13 0.16
Full Professor uncoded 140527.25 144645.0 147468.8 4 0.05
Associate Professor male 107332.00 112300.0 125400.0 11 0.14
Associate Professor female 108925.00 111650.0 116075.0 3 0.04
Associate Professor uncoded 110375.00 111350.0 112145.0 4 0.05
Assistant Professor male 96600.00 99100.0 101500.0 5 0.06
Assistant Professor female 97900.00 97900.0 99350.0 3 0.04
Assistant Professor uncoded 97000.00 97400.0 99350.0 4 0.05
Teaching Faculty male 76425.00 80750.0 87100.0 4 0.05
Teaching Faculty female 39500.00 39500.0 39500.0 1 0.01
Teaching Faculty uncoded 79400.00 79400.0 79400.0 1 0.01
Researcher male 41130.25 60000.0 70395.0 10 0.13
Researcher female 55000.00 66250.0 76534.5 4 0.05
Researcher uncoded 48750.00 60300.0 63250.0 8 0.10
Administrator male 109163.75 125612.5 142061.2 2 0.03
Administrator female 70655.00 76650.0 82645.0 2 0.03

Top Five Salaries

Full.Name gender title salary
Kavazanjian, Edward male Full Professor $260,500
Westerhoff, Paul male Full Professor $255,300
Hjelmstad, Keith male Full Professor $253,100
Allenby, Braden male Full Professor $243,400
Lackner, Klaus male Full Professor $228,900



## `summarise()` has grouped output by 'title'. You can override using the
## `.groups` argument.

School Of Art

Salary Summary by Rank & Gender

title gender q25 q50 q75 n p
Full Professor male 87681.0 90912.0 106227.00 9 0.17
Full Professor female 89168.5 91731.0 99997.00 11 0.20
Associate Professor male 77276.0 92592.5 110023.75 4 0.07
Associate Professor female 74898.0 81018.0 85000.00 9 0.17
Assistant Professor male 64000.0 64000.0 64000.00 1 0.02
Assistant Professor female 64150.0 65133.0 66155.00 5 0.09
Assistant Professor uncoded 64500.0 64500.0 64500.00 1 0.02
Teaching Faculty male 46925.0 47950.0 48975.00 2 0.04
Teaching Faculty female 44850.0 45900.0 59841.75 10 0.19
Administrator female 86954.5 125909.0 164863.50 2 0.04

Top Five Salaries

Full.Name gender title salary
Grabski, Joanna female Administrator $203,818
Klett, Mark male Full Professor $146,336
Weiser, Kurt male Full Professor $140,243
Lawson, Shawn male Associate Professor $118,000
Codell, Julie female Full Professor $113,462



## `summarise()` has grouped output by 'title'. You can override using the
## `.groups` argument.

School of Criminology & Crim J

Salary Summary by Rank & Gender

title gender q25 q50 q75 n p
Full Professor male 130900.0 143213.0 168519.0 7 0.16
Full Professor female 145251.2 172167.5 199083.8 2 0.05
Associate Professor male 100917.0 102960.0 106132.0 5 0.12
Associate Professor female 100148.0 101000.0 101250.0 5 0.12
Associate Professor uncoded 110000.0 110000.0 110000.0 1 0.02
Assistant Professor male 84050.0 84100.0 84150.0 2 0.05
Assistant Professor female 83750.0 84100.0 84400.0 4 0.09
Teaching Faculty male 48000.0 51000.0 58250.0 11 0.26
Teaching Faculty female 53000.0 53000.0 54000.0 5 0.12
Administrator female 60000.0 60000.0 60000.0 1 0.02

Top Five Salaries

Full.Name gender title salary
Spohn, Cassia female Full Professor $226,000
Gould, Jon male Full Professor $185,000
White, Michael male Full Professor $173,538
Maguire, Edward male Full Professor $163,500
Fradella, Henry male Associate Professor $144,500



## `summarise()` has grouped output by 'title'. You can override using the
## `.groups` argument.

School Of Earth & Space Explor

Salary Summary by Rank & Gender

title gender q25 q50 q75 n p
Full Professor male 136381.00 146686.5 175800.0 20 0.19
Full Professor female 179637.50 183025.0 186412.5 2 0.02
Full Professor uncoded 117358.00 144053.0 167001.5 3 0.03
Associate Professor male 112612.50 113100.0 120050.0 3 0.03
Associate Professor female 114156.00 119050.0 121250.0 5 0.05
Associate Professor uncoded 127966.50 129183.0 130399.5 2 0.02
Assistant Professor male 92000.00 96000.0 98200.0 5 0.05
Assistant Professor female 92000.00 93500.0 95750.0 4 0.04
Assistant Professor uncoded 96000.00 96000.0 97000.0 3 0.03
Teaching Faculty female 45000.00 45000.0 45000.0 1 0.01
Researcher male 54096.25 63500.0 73225.0 34 0.32
Researcher female 56323.50 65000.0 70232.5 15 0.14
Researcher uncoded 60000.00 60000.0 75196.0 5 0.05
Administrator male 89760.00 89760.0 89760.0 1 0.01
Administrator female 104475.00 116550.0 196525.0 3 0.03
Administrator uncoded 111133.00 111133.0 111133.0 1 0.01

Top Five Salaries

Full.Name gender title salary
Elkins-Tanton, Linda female Administrator $276,500
Hodges, Kip male Full Professor $267,100
Bell, James male Full Professor $222,400
Christensen, Philip male Full Professor $216,050
Windhorst, Rogier uncoded Full Professor $189,950



## `summarise()` has grouped output by 'title'. You can override using the
## `.groups` argument.

School of Geog Sci & Urban Pln

Salary Summary by Rank & Gender

title gender q25 q50 q75 n p
Full Professor male 116029.50 122723.0 136957.50 11 0.22
Full Professor female 50106.50 60213.0 140930.00 3 0.06
Associate Professor male 98245.50 101605.0 106640.50 3 0.06
Associate Professor female 97998.50 101527.0 112263.50 3 0.06
Associate Professor uncoded 102156.50 102938.0 103719.50 2 0.04
Assistant Professor male 84500.00 85307.5 86211.25 4 0.08
Assistant Professor female 78093.25 85525.5 86875.00 4 0.08
Assistant Professor uncoded 85000.00 85000.0 85000.00 1 0.02
Teaching Faculty male 55000.00 55000.0 57752.00 3 0.06
Teaching Faculty female 60547.00 60547.0 60547.00 1 0.02
Teaching Faculty uncoded 49479.00 49479.0 49479.00 1 0.02
Researcher male 45019.25 52500.0 60000.00 4 0.08
Researcher female 37017.00 40128.0 45540.25 4 0.08
Researcher uncoded 50000.00 50000.0 50000.00 5 0.10
Administrator male 86000.00 86000.0 86000.00 1 0.02
Administrator female 62060.00 62060.0 62060.00 1 0.02

Top Five Salaries

Full.Name gender title salary
Fotheringham, Stewart male Full Professor $333,200
Asner, Gregory male Full Professor $304,000
Turner, Billie female Full Professor $221,647
Sailor, David male Full Professor $141,453
Cerveny, Randall male Full Professor $132,462



## `summarise()` has grouped output by 'title'. You can override using the
## `.groups` argument.

School of Math & Stat Sciences

Salary Summary by Rank & Gender

title gender q25 q50 q75 n p
Full Professor male 125692.50 138136.0 161198.00 20 0.20
Full Professor female 144838.00 164207.0 169106.00 3 0.03
Full Professor uncoded 132695.00 132695.0 132695.00 1 0.01
Associate Professor male 96670.50 104980.0 110147.50 15 0.15
Associate Professor female 93844.25 97091.0 98876.00 4 0.04
Associate Professor uncoded 74460.00 99722.0 106480.00 4 0.04
Assistant Professor male 92781.00 101600.0 105000.00 5 0.05
Assistant Professor female 105000.00 105000.0 105000.00 1 0.01
Assistant Professor uncoded 92500.00 95000.0 97500.00 3 0.03
Teaching Faculty male 50470.00 59955.0 60444.00 17 0.17
Teaching Faculty female 55000.00 57390.0 61038.00 9 0.09
Teaching Faculty uncoded 55000.00 57657.5 65625.75 8 0.08
Researcher male 53250.00 54000.0 55114.00 7 0.07
Researcher female 66881.75 80063.5 93245.25 2 0.02
Researcher uncoded 54000.00 54000.0 54000.00 1 0.01
Administrator male 210803.00 210803.0 210803.00 1 0.01
Administrator female 66271.00 66271.0 66271.00 1 0.01

Top Five Salaries

Full.Name gender title salary
Boggess, Albert male Full Professor $240,500
Mahalov, Alex male Full Professor $224,020
McCulloch, Robert male Full Professor $212,170
Milner, Fabio male Administrator $210,803
Renaut, Rosemary female Full Professor $174,005



## `summarise()` has grouped output by 'title'. You can override using the
## `.groups` argument.

School of Molecular Sciences

Salary Summary by Rank & Gender

title gender q25 q50 q75 n p
Full Professor male 125521.00 135675.0 149260.00 17 0.18
Full Professor female 142128.00 159551.0 226197.00 5 0.05
Full Professor uncoded 127221.00 128007.0 134869.00 3 0.03
Associate Professor male 103056.00 103495.0 105099.00 5 0.05
Associate Professor female 101409.00 101409.0 101409.00 1 0.01
Assistant Professor male 94569.00 95523.5 96478.00 6 0.07
Assistant Professor female 93000.00 94000.0 94856.50 3 0.03
Assistant Professor uncoded 96478.00 96478.0 96478.00 1 0.01
Teaching Faculty male 46430.50 47918.0 48699.75 6 0.07
Teaching Faculty female 47425.00 48723.0 56010.50 11 0.12
Teaching Faculty uncoded 46499.50 47999.0 48245.50 3 0.03
Researcher male 50201.25 55977.0 88750.00 12 0.13
Researcher female 47607.00 50679.5 67000.00 10 0.11
Researcher uncoded 39244.25 48960.0 54428.25 8 0.09
Administrator female 62720.00 62720.0 62720.00 1 0.01

Top Five Salaries

Full.Name gender title salary
Navrotsky, Alexandra female Full Professor $240,000
Fromme, Petra female Full Professor $226,197
Angell, Charles male Full Professor $191,976
Moore, Thomas male Full Professor $184,096
Yarger, Jeffery male Full Professor $176,161



## `summarise()` has grouped output by 'title'. You can override using the
## `.groups` argument.

School of Politics & Global St

Salary Summary by Rank & Gender

title gender q25 q50 q75 n p
Full Professor male 112700 171750 175000.0 5 0.13
Full Professor female 115875 124750 139000.0 3 0.08
Associate Professor male 100500 101750 102000.0 5 0.13
Associate Professor female 85750 96000 99771.5 6 0.16
Assistant Professor male 85000 86750 99125.0 4 0.11
Assistant Professor female 88750 92000 95250.0 2 0.05
Assistant Professor uncoded 85000 85000 85000.0 1 0.03
Teaching Faculty male 56500 119500 154500.0 8 0.21
Teaching Faculty female 56625 58250 81875.0 3 0.08
Researcher female 60000 60000 60000.0 1 0.03

Top Five Salaries

Full.Name gender title salary
Hero, Rodney male Full Professor $341,750
Polt, Michael male Teaching Faculty $226,600
Thies, Cameron male Full Professor $175,000
Hechter, Michael male Full Professor $171,750
Bergen, Peter male Teaching Faculty $157,500



## `summarise()` has grouped output by 'title'. You can override using the
## `.groups` argument.

School Of Public Affairs

Salary Summary by Rank & Gender

title gender q25 q50 q75 n p
Full Professor male 121950 186375.0 206708.0 9 0.28
Full Professor female 124250 146304.5 148974.2 4 0.12
Associate Professor male 102820 104725.0 113487.5 4 0.12
Associate Professor uncoded 106496 106496.0 106496.0 1 0.03
Assistant Professor male 92150 94200.0 94600.0 3 0.09
Assistant Professor female 90125 92250.0 94375.0 2 0.06
Assistant Professor uncoded 88500 88500.0 88500.0 1 0.03
Teaching Faculty male 30950 40300.0 49700.0 4 0.12
Teaching Faculty female 40195 49000.0 62000.0 3 0.09
Administrator female 67200 67200.0 67200.0 1 0.03

Top Five Salaries

Full.Name gender title salary
Bozeman, Barry male Full Professor $236,900
Kapstein, Ethan male Full Professor $227,500
Bretschneider, Stuart male Full Professor $206,708
Siegel, Donald male Full Professor $190,000
Reilly, Thomas male Full Professor $186,375



## `summarise()` has grouped output by 'title'. You can override using the
## `.groups` argument.

School of Social Transform

Salary Summary by Rank & Gender

title gender q25 q50 q75 n p
Full Professor male 111626.8 126301.0 154308.75 4 0.07
Full Professor female 105880.0 110239.0 148250.00 9 0.17
Full Professor uncoded 161685.0 161685.0 161685.00 1 0.02
Associate Professor male 85536.0 90000.0 100738.00 9 0.17
Associate Professor female 83312.5 92394.5 99672.75 14 0.26
Associate Professor uncoded 100673.0 100673.0 100673.00 1 0.02
Assistant Professor male 58750.0 67500.0 76250.00 2 0.04
Assistant Professor female 85000.0 85000.0 85000.00 5 0.09
Assistant Professor uncoded 85000.0 85000.0 85000.00 1 0.02
Teaching Faculty male 53460.5 54171.0 54881.50 2 0.04
Teaching Faculty female 39537.5 45000.0 52422.00 3 0.06
Teaching Faculty uncoded 45000.0 45000.0 45000.00 1 0.02
Researcher female 70343.0 70343.0 70343.00 1 0.02
Researcher uncoded 42500.0 42500.0 42500.00 1 0.02

Top Five Salaries

Full.Name gender title salary
Kitch, Sally female Full Professor $247,500
Brayboy, Bryan male Full Professor $219,429
Scott, Kimberly female Full Professor $180,000
Lomawaima, K uncoded Full Professor $161,685
Moore, Elsie female Full Professor $148,250



## `summarise()` has grouped output by 'title'. You can override using the
## `.groups` argument.

School Of Social Work

Salary Summary by Rank & Gender

title gender q25 q50 q75 n p
Full Professor male 129970.00 131845.0 137401.00 5 0.07
Full Professor female 102075.00 116880.0 127057.50 6 0.09
Associate Professor male 91648.75 92863.5 94078.25 2 0.03
Associate Professor female 90194.00 90267.0 91528.00 5 0.07
Assistant Professor male 82250.00 83500.0 84750.00 2 0.03
Assistant Professor female 83000.00 83550.0 83750.00 10 0.14
Assistant Professor uncoded 82425.00 83000.0 84700.00 4 0.06
Teaching Faculty male 35725.00 48450.0 49800.00 3 0.04
Teaching Faculty female 48200.00 50750.0 53710.00 26 0.37
Researcher male 60000.00 60000.0 60000.00 1 0.01
Researcher female 51885.00 64000.0 66250.00 4 0.06
Administrator female 71365.75 76231.5 81097.25 2 0.03

Top Five Salaries

Full.Name gender title salary
Williams, James male Full Professor $254,000
Messing, Jill female Full Professor $160,000
Shafer, Michael male Full Professor $137,401
Ashford, Jose male Full Professor $131,845
Segal, Elizabeth female Full Professor $130,390



## `summarise()` has grouped output by 'title'. You can override using the
## `.groups` argument.

SHPRS History Faculty

Salary Summary by Rank & Gender

title gender q25 q50 q75 n p
Full Professor male 101565.00 130000.0 158446.00 5 0.12
Full Professor female 130808.50 147789.0 164769.50 2 0.05
Full Professor uncoded 135206.00 135206.0 135206.00 1 0.02
Associate Professor male 108000.00 108707.0 122268.00 5 0.12
Associate Professor female 75612.00 91369.0 104841.00 7 0.17
Assistant Professor male 75741.00 76732.0 78241.00 3 0.07
Assistant Professor female 77506.00 79750.0 79875.00 3 0.07
Assistant Professor uncoded 82494.00 82494.0 82494.00 1 0.02
Teaching Faculty male 50575.00 51000.0 67667.00 9 0.21
Teaching Faculty female 49428.75 58333.5 67959.25 4 0.10
Teaching Faculty uncoded 47992.00 47992.0 47992.00 1 0.02
Researcher female 60000.00 60000.0 60000.00 1 0.02

Top Five Salaries

Full.Name gender title salary
Fixico, Donald male Full Professor $271,527
Austin, Curtis male Associate Professor $190,000
Alexander, Leslie female Associate Professor $190,000
Saikia, Yasmin female Full Professor $181,750
Critchlow, Donald male Full Professor $158,446



## `summarise()` has grouped output by 'title'. You can override using the
## `.groups` argument.

Social & Behavioral Sciences

Salary Summary by Rank & Gender

title gender q25 q50 q75 n p
Full Professor male 103912.0 108184 118114.0 7 0.10
Full Professor female 68388.5 79040 102252.0 3 0.04
Full Professor uncoded 114104.0 114104 114104.0 1 0.01
Associate Professor male 93394.0 97660 99152.0 5 0.07
Associate Professor female 91490.0 93801 98000.0 9 0.12
Assistant Professor male 83562.5 85625 87437.5 4 0.06
Assistant Professor female 81000.0 82987 85000.0 8 0.11
Assistant Professor uncoded 82500.0 82500 82500.0 1 0.01
Teaching Faculty male 48224.0 54000 54000.0 9 0.12
Teaching Faculty female 52000.0 54000 55000.0 19 0.26
Teaching Faculty uncoded 54000.0 54000 54000.0 1 0.01
Researcher female 48750.0 52810 56715.0 4 0.06
Administrator male 111594.0 111594 111594.0 1 0.01

Top Five Salaries

Full.Name gender title salary
Barclay, Scott male Full Professor $172,600
Mickelson, Kristin female Full Professor $125,464
Kassing, Jeffrey male Full Professor $118,412
Kirby, Andrew male Full Professor $117,816
Nadesan, Majia uncoded Full Professor $114,104



## `summarise()` has grouped output by 'title'. You can override using the
## `.groups` argument.

Sols Administration & Faculty

Salary Summary by Rank & Gender

title gender q25 q50 q75 n p
Full Professor male 119697.00 134356.0 174870.0 23 0.18
Full Professor female 119868.00 146298.0 161500.0 13 0.10
Full Professor uncoded 97221.25 114017.5 130813.8 2 0.02
Associate Professor male 98826.75 105545.0 123339.0 10 0.08
Associate Professor female 102720.50 110150.0 118748.5 4 0.03
Associate Professor uncoded 99293.50 102819.0 106344.5 2 0.02
Assistant Professor male 90550.00 93700.0 96850.0 2 0.02
Assistant Professor female 92000.00 94000.0 94150.0 7 0.06
Assistant Professor uncoded 99000.00 99000.0 99000.0 1 0.01
Teaching Faculty male 48000.00 48000.0 56875.0 7 0.06
Teaching Faculty female 48000.00 48000.0 53150.0 8 0.06
Researcher male 50123.00 52000.0 58260.0 17 0.14
Researcher female 49500.00 51637.5 64250.0 16 0.13
Researcher uncoded 47494.00 50678.5 55414.0 8 0.06
Administrator male 155560.75 189940.5 224320.2 2 0.02
Administrator female 77870.00 83580.0 89290.0 2 0.02
Administrator uncoded 275000.00 275000.0 275000.0 1 0.01

Top Five Salaries

Full.Name gender title salary
Maienschein, Jane female Full Professor $352,187
Kusumi, Kenro uncoded Administrator $275,000
Buetow, Kenneth male Administrator $258,700
Grimm, Nancy female Full Professor $253,500
Laubichler, Manfred male Full Professor $245,400



## `summarise()` has grouped output by 'title'. You can override using the
## `.groups` argument.

SOS Faculty & Researchers

Salary Summary by Rank & Gender

title gender q25 q50 q75 n p
Full Professor male 75392.50 110980.5 140816.00 6 0.11
Full Professor female 124686.75 190624.5 263000.00 4 0.08
Full Professor uncoded 118827.00 118827.0 118827.00 1 0.02
Associate Professor male 97101.00 97515.0 97929.00 2 0.04
Associate Professor female 98982.00 99813.0 100644.00 2 0.04
Associate Professor uncoded 143500.00 143500.0 143500.00 1 0.02
Assistant Professor male 78183.50 89251.0 101164.00 4 0.08
Assistant Professor female 87116.00 87125.0 102562.50 3 0.06
Assistant Professor uncoded 87333.25 87966.5 88599.75 2 0.04
Teaching Faculty male 46250.00 51129.0 59771.00 10 0.19
Teaching Faculty female 38655.00 45000.0 45000.00 11 0.21
Teaching Faculty uncoded 27000.00 50000.0 52632.00 5 0.09
Researcher male 103691.25 152382.5 201073.75 2 0.04

Top Five Salaries

Full.Name gender title salary
Merrigan, Kathleen female Full Professor $287,000
Pfirman, Stephanie female Full Professor $255,000
Melnick, Robert male Researcher $249,765
Redman, Charles male Full Professor $198,867
Basile, George male Teaching Faculty $168,913



## `summarise()` has grouped output by 'title'. You can override using the
## `.groups` argument.

The Design School

Salary Summary by Rank & Gender

title gender q25 q50 q75 n p
Full Professor male 97533.0 122233.0 133800.0 9 0.16
Full Professor female 139002.8 140005.5 141008.2 2 0.04
Full Professor uncoded 128056.0 128056.0 128056.0 1 0.02
Associate Professor male 80020.0 81763.0 83445.0 9 0.16
Associate Professor female 83053.5 97523.0 112837.8 6 0.11
Associate Professor uncoded 82032.0 82032.0 82032.0 1 0.02
Assistant Professor male 69822.5 70250.0 70625.0 4 0.07
Assistant Professor female 70700.0 70700.0 70700.0 1 0.02
Assistant Professor uncoded 70500.0 71000.0 71375.0 3 0.05
Teaching Faculty male 43212.5 48100.5 61722.5 8 0.15
Teaching Faculty female 32235.5 50900.0 66225.0 10 0.18
Administrator female 124750.0 124750.0 124750.0 1 0.02

Top Five Salaries

Full.Name gender title salary
Neveu, Mark male Full Professor $144,850
Jackson, Maria female Full Professor $142,011
Heller, Cheryl female Full Professor $138,000
Underhill, Michael male Full Professor $135,995
Brooks, Kenneth male Full Professor $133,800



## `summarise()` has grouped output by 'title'. You can override using the
## `.groups` argument.

The Sanford School

Salary Summary by Rank & Gender

title gender q25 q50 q75 n p
Full Professor male 124357.75 158364.5 183931.5 6 0.12
Full Professor female 122326.00 127953.0 132502.0 7 0.14
Associate Professor male 98500.00 98500.0 98500.0 1 0.02
Associate Professor female 99173.00 100900.0 125000.0 9 0.18
Assistant Professor male 86212.50 86775.0 87337.5 2 0.04
Assistant Professor female 85528.75 87357.5 88800.0 6 0.12
Teaching Faculty male 24814.00 24814.0 24814.0 1 0.02
Teaching Faculty female 82609.00 82609.0 88433.0 5 0.10
Teaching Faculty uncoded 49300.00 49300.0 49300.0 1 0.02
Researcher male 113603.00 113603.0 113603.0 1 0.02
Researcher female 52500.00 52500.0 59282.5 7 0.14
Researcher uncoded 53375.00 54250.0 55125.0 2 0.04
Administrator female 72000.00 72000.0 72000.0 1 0.02

Top Five Salaries

Full.Name gender title salary
Elliott, Stephen male Full Professor $281,860
Sandefur, Rebecca female Full Professor $220,000
Fabes, Richard male Full Professor $190,000
Meek, Shantel female Teaching Faculty $168,093
Ladd, Gary male Full Professor $165,726



## `summarise()` has grouped output by 'title'. You can override using the
## `.groups` argument.

WPC Accountancy

Salary Summary by Rank & Gender

title gender q25 q50 q75 n p
Full Professor male 165050.00 200131.0 299042.0 7 0.16
Full Professor female 201575.00 237500.0 273425.0 2 0.05
Full Professor uncoded 174393.25 223786.5 273179.8 2 0.05
Associate Professor male 224344.00 262453.5 280427.5 4 0.09
Associate Professor female 267244.50 274394.0 278578.5 4 0.09
Associate Professor uncoded 265220.00 265220.0 265220.0 1 0.02
Assistant Professor male 217493.75 219475.0 221306.2 6 0.14
Assistant Professor female 215475.00 215475.0 215475.0 1 0.02
Assistant Professor uncoded 225000.00 225000.0 225000.0 1 0.02
Teaching Faculty male 88675.75 98550.0 129500.0 8 0.18
Teaching Faculty female 96612.50 120650.0 143750.0 8 0.18

Top Five Salaries

Full.Name gender title salary
Call, Andrew male Full Professor $401,664
Lamoreaux, Phillip male Associate Professor $323,113
Li, Yinghua uncoded Full Professor $322,573
Matejka, Michal female Full Professor $309,350
Reckers, Philip male Full Professor $300,975



## `summarise()` has grouped output by 'title'. You can override using the
## `.groups` argument.

WPC Economics

Salary Summary by Rank & Gender

title gender q25 q50 q75 n p
Full Professor male 170849.00 237847.5 298320.0 14 0.30
Full Professor female 180091.00 180091.0 180091.0 1 0.02
Full Professor uncoded 296743.00 296743.0 296743.0 1 0.02
Associate Professor male 172973.75 183753.0 184973.5 6 0.13
Associate Professor female 149103.25 153830.5 158557.8 2 0.04
Associate Professor uncoded 107984.00 107984.0 107984.0 1 0.02
Assistant Professor male 147288.25 154000.0 157750.0 4 0.09
Assistant Professor female 147432.75 152288.5 157144.2 2 0.04
Teaching Faculty male 93992.75 101037.5 104520.0 8 0.17
Teaching Faculty female 102699.75 104300.5 105800.5 4 0.09
Researcher male 111706.00 111706.0 111706.0 1 0.02
Administrator male 122014.25 190900.5 259786.8 2 0.04
Administrator female 43866.00 43866.0 43866.0 1 0.02

Top Five Salaries

Full.Name gender title salary
Prescott, Edward male Full Professor $340,159
Ventura, Gustavo male Administrator $328,673
Manelli, Alejandro male Full Professor $320,449
Silverman, Daniel male Full Professor $310,840
Chade, Hector male Full Professor $302,410



## `summarise()` has grouped output by 'title'. You can override using the
## `.groups` argument.

WPC Information Systems

Salary Summary by Rank & Gender

title gender q25 q50 q75 n p
Full Professor male 130718.75 157081.5 183444.2 2 0.05
Full Professor uncoded 225751.00 227473.0 229195.0 2 0.05
Associate Professor male 177754.75 183509.5 189264.2 2 0.05
Associate Professor uncoded 178106.00 185693.0 193280.0 2 0.05
Assistant Professor male 168039.00 168039.0 168039.0 1 0.03
Assistant Professor female 168150.75 172100.5 176050.2 2 0.05
Assistant Professor uncoded 180000.00 180000.0 180000.0 1 0.03
Teaching Faculty male 84549.00 95000.0 120000.0 13 0.35
Teaching Faculty female 75055.75 93905.0 124146.2 4 0.11
Teaching Faculty uncoded 86007.50 100000.0 103666.5 7 0.19
Administrator uncoded 338643.00 338643.0 338643.0 1 0.03

Top Five Salaries

Full.Name gender title salary
Santanam, Raghu uncoded Administrator $338,643
Chen, Pei-yu uncoded Full Professor $230,917
Zhang, Zhongju uncoded Full Professor $224,029
Shao, Benjamin male Full Professor $209,807
Shi, Zhan uncoded Associate Professor $200,867



## `summarise()` has grouped output by 'title'. You can override using the
## `.groups` argument.

WPC Management

Salary Summary by Rank & Gender

title gender q25 q50 q75 n p
Full Professor male 219151.5 282000.0 349986.5 7 0.16
Associate Professor male 195430.5 228779.5 232798.8 8 0.19
Associate Professor female 144590.8 155322.5 168114.2 4 0.09
Assistant Professor male 146796.0 146796.0 146796.0 1 0.02
Assistant Professor female 215000.0 215000.0 215000.0 1 0.02
Assistant Professor uncoded 163151.0 163151.0 163151.0 1 0.02
Teaching Faculty male 85680.0 97549.0 119294.0 13 0.30
Teaching Faculty female 97174.0 103807.0 106524.0 5 0.12
Teaching Faculty uncoded 122520.0 122520.0 122520.0 1 0.02
Researcher male 47208.0 47208.0 47208.0 1 0.02
Administrator male 334499.0 334499.0 334499.0 1 0.02

Top Five Salaries

Full.Name gender title salary
LePine, Jeffery male Full Professor $402,257
Gomez-Mejia, Luis male Full Professor $361,393
Ashforth, Blake male Full Professor $338,580
Shen, Wei male Administrator $334,499
Corley, Kevin male Full Professor $282,000



## `summarise()` has grouped output by 'title'. You can override using the
## `.groups` argument.

WPC Supply Chain Management

Salary Summary by Rank & Gender

title gender q25 q50 q75 n p
Full Professor male 206697.2 238612 255275.5 10 0.29
Full Professor uncoded 250000.0 250000 250000.0 1 0.03
Associate Professor male 117181.5 181363 185681.5 3 0.09
Associate Professor uncoded 167055.0 178720 180270.5 3 0.09
Assistant Professor male 154050.5 160000 165000.0 3 0.09
Assistant Professor female 148601.0 148601 148601.0 1 0.03
Teaching Faculty male 91750.0 98512 117577.5 7 0.20
Teaching Faculty female 89478.5 90457 91435.5 2 0.06
Teaching Faculty uncoded 103103.5 106207 109310.5 2 0.06
Administrator male 103250.0 119000 175139.0 3 0.09

Top Five Salaries

Full.Name gender title salary
Choi, Thomas male Full Professor $288,818
Carter, Craig male Full Professor $263,000
Fowler, John male Full Professor $256,139
Rabinovich, Elliot male Full Professor $252,685
Li, Hongmin uncoded Full Professor $250,000